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module ADA (elk, reset , dpdi , dpdout , usb_endpt , dp_l_read, 

dp_l_write, set_token, valid_token, stall, Vo, Vi) 
output [7:0] dpdi; 
output stall; 
input [7:0] dpdout; 
input [3:0] usb_endpt ; 

input set_token, valid_token, dp_l_read, dp_l_write; 

SETUP_FSM 

setup_FSM (.dpdout (dpdout) , .elk (elk) , . reset (reset ) , 

.data (data) , .mux (mux) .dp_l_write (dp_l_write) , .set_token 

(set_token) , . valid_token (valid_token) ) ; 

INTERPRET_FSM 

interpret_FSM(.clk (elk),. reset (reset), .data (data), .stall 
(stall), .mux (mux),.sel (sel) , .address (address), .config 
(config) , .descrip (descrip) , .DIR (DIR) , . STD (STD) , .etc. ) ; 

DESCRIPJFSM 

descrip_FSM (.d_data (d_data) , . dp_l_read (dp_l_read) , .descrip 
(descrip) , .reset (reset) , .elk (elk) ) ; 

CONFIGJFSM 

config_FSM( .c_data (c_data) , .dp_l_read (dp_l_read) , 
.config. (config) , .reset (reset) , .elk (elk) ) ; 

ADDRES S_FSM 

address_FSM (.a_data (a_data) , . dp_l_read (dp_l_read) , 
.address (address) , .reset (reset) , .elk (elk) ) ; 

always @ (posedge elk) begin: Out_Mux: 
case (sel) 

0 : s_data = d_data; // select descriptor data. 

1 : s_data = c_data; // select config data. 

2 : s_data = a_data; // select address data 

3 : s_data = other; // select other appropriate data, 
endcase 

end 

wire [ 7:0 ] dpdi = (usb_endpt == 0) ? AD_out : s_data; 
endmodule 



module SETUP_FSM (dpdout, elk, reset, data, mux, 
dp_l_vrite, set_token, valid_token) ; 

input [7:0] dpdout; 
input [3:0] usb_endpt; 

input elk, reset, valid_token, set_token, dp_l_write; 

output [7:0] data; 
output interpret; reg interpret; 

reg[7:0] REQUEST, REQ, VALUE 1 , VALUE 2 , INDEX1, 

INDEX2, LENGTH 1 , LENGTH 2 ; 
reg [3:0] state, next_state; 

always @ (negedge elk) 

if (set_token & valid_token) state = get_SETUP; 
else state = next_state; 
always @ (posedge dp_l_write or posedge reset) 
begin : SETUP_FSM 
if (reset) begin 

next_state = get_SETUP; 
interrupt <= 0; 
end 

*?t I else if (valid control endpoint and set_token) 

begin case (state) 
get_S2TUP : begin 

interrupt <= 0; 
REQ [7] = dpdout [7] ; 

REQ [6 : 5] = {dpdout [6] , dpdout [5] } ; 
next_state = get_REQ; 
end 

get_REQ : begin 

REQUEST = dpdout; // [7:0] 
next_state = g et_ VALUE 1 
end 

getJVALUEl: begin 

VALUE 1 = dpdout; 
next_state = get_VALUE2; 
end 

get_VALUE2 : begin 

VALUE 2 = dpdout; 
next__state = get_INDEXl; 
end 

get_INDSXl : 
get_INDEX2: 
get_LENGTHl: begin 

LENGTH 1 = dpdout; 
next_state = get_LENGTH2 ; 
end 

get_LENGTH2: begin 

LENGTH2 = dpdout; 
next_state = get_LENGTH2; 
interpret <= 1; // enable interpret_FSM 
end 

endcase 



endmodule 



module INTERPRET_FSM (clkT^^set, data, 
stall, mux, sel, address, config, 
descrip, DIR, STD, etc.); 
input [7:0] data; 
input interpret; 
output [2:0] mux, sel; 

output address, config, descrip; // or 

other interpreted requests 

output DIR, STD, etc; // CLASS, VENDOR, 

etc. 

reg address, config, descrip; 
reg [2:0] state, next_state; 

always @ (state or interpret or data) 

begin : INTERPRET 

if (interpret) begin 

case (state) 

INIT : begin 

stall = 0; 

mux = REQ_type : 

next_state = got_REQ_type ; 

1 3 end 



gotrj]REQ_type : begin 

DIR <= data [7] ; 



casf ({ data [6], data [5] }) 



a « 00 : STD = 1; 

s 01 : CLAS = 1; 

£3 10 : VEND = 1; 

a 11 : ERR = 1; 



enc|<iase 

f» next_state 
end r 



get_REQ; 



get_REQ: 

got_REQ : 
case (data) 



begin 

mux = sel__REQ; 
next__state = got_REQ; 
end 
begin 



egin 
sel = "ADDRESS; 
address = 1; 

next_state = get__address 
end 



06: begin 

sel = "DESCRIP; 
descrip = 1; 
next_state = get_desc 
end 

08: begin 

sel = "CONFIG; 
do_config = 1; 
next_state = get_config; 
end 

OA: begin 

sel = "INTERFACE; 
interface = 1; 
next_state = get_interf ace; 
end 

default: stall = 1; 

endcase //data 
end 

get_address : begin 
mux = VALUE 2 ; 

if (interpret) next_state = get_address; 

else next_state = INIT: 

end 

endcase //state 
end 



always @ (posedge elk) begin 
if (reset) state = INIT; 
else state = next_state; 

end 

endmodule 



00: begin 

sel = "STATUS; 
status = 1; 

next_state = get_status; 

end 



Module DESCRIP_FSM (desc, descrip, dp_l_jread) 
output [7:0] desc; 

input descrip, dp_l_read, 

always ® (posedge dp_l_read) begin: descrip_FSM 

if {descrip) begin 

case (state) 

0 : begin 

desc = length; //IB 

state = l; 

end 

1 : begin 

desc = type; // = 1 

state = 2; 

end 

2 : begin 

desc = USB. version; //l 

state = 3; 

end 

3 : begin 

desc = next_byte, etc. 

state = 4; 

end 

states 4 thru 16 not shown 

17: begin 

desc = last byte 
state = last_state; 
end 

last state: begin . . . 
endcase 
end 

endmodule 
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